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L Purpose 

This final report describes the accomplishments in this phase of 
Task 4 — General Purpose Intelligent Sensor Interface task of the 
Applications of Artificial Intelligence to Space Station project for the 
period July 1989 through January 1990. The accomplishments in the 
first phase of this task have been reported in UAH research reports 698 
and 728. 


2. Research Goals 

The long range goal of this research at UAH is to develop an 
intelligent sensor system that will simplify the design and development 
of expert systems that use sensors of physical phenomena as a source of 
input data. This phase of the research has concentrated on the 
integration of image processing sensors with expert system 
environments. The anticipated result of this research is the ability to 
design systems in which the user will not need to be an expert in such 
areas as image processing algorithms, local area networks, image 
processor hardware selection or interfacing, or television cameras 
selection. The user will be, able to access data from video sensors 

through standard expert system statements without any need to know 
about the sensor hardware or software. 


3. Research Approach 

This research project was performed in two phases. The first 

phase concentrated on the following areas: 

1. Survey the commercial market for image processing hardware. 

2. Select an image processing hardware product that will meet the 
requirements of this project. 

3. Survey and select a LISP expert system and machine that will meet 
the requirements of this project. 

4. Determine the requirements of, and implement, a protocol that will 
allow the image processing hardware and the expert system to operate 
together. 

5. Determine the requirements of, and implement, the image processing 
software to perform the low level image processing function with the 
hardware. 

6. Document and demonstrate the system. 
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The results of the first phase are documented in UAH research 
reports 698 and 728. The phase one system consisted of an image 
processing card that plugs into a PC and the LISP environment on a 
Symbolics computer. These two machines were connected via a protocol 
that allowed LISP statements to perform image processing functions. 
Low level image processing functions were written on the PC to 
interface the image processing hardware with the LISP statements. 

The second phase of this research project consists of the same 
goals as phase one but with an expansion of the domain. The domain 
has been expanded to include color image processing with both the 
hardware and expert system being on the same computer. 


4. Detail D escription of the Second Phase 

The specific goals of phase two are as follows: 

1. Become a resource to NASA/MSFC in the area of developing 
application on the Macintosh. 

2. Locate and assemble color image processing hardware. 

3. Develop software primitives to handle color images. 

4. Develop the capabilities to process multi-spectral images (color). 

5. Develop a stand alone color image processing system on the 
Macintosh. 

6. Develop the capability to interface image processing hardware with 
CLIPS on the Macintosh. 

The Macintosh was chosen as the host computer because of its 
architecture and power. CLIPS was chosen as the expert system 
because it is one of the possible expert systems for use on Space Station 
Freedom. A version of CLIPS that runs on the Macintosh was obtained. 
The Data Translation DT2270 was chosen as the image processing 
hardware because at the time of the start of this project the DT2270 
was the only color frame grabber that worked in the Macintosh. 

A DT2270 hardware card, color camera, and color monitor were 
borrowed from other projects to test the software developed on this 
project. The development environment was SYMANTEC’S Think’s 
LightspeedC. The user interface for the stand alone image processing 
system was developed using the Macintosh Toolbox functions. 
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The result of this project was the assembly and testing of the 

hardware necessary to acquire and process color image on the 
Macintosh. Also a base line, stand alone color image processing 
environment was developed. Its user interface is very similar to the 

customary Macintosh menu environment. The majority of the effort on 
this project was expended on developing this user interface using the 

Toolbox. But this has resulted in the capability to develop other 
applications for NASA/MSFC on the Macintosh. The remainder of this 
report goes into more detail about design of the stand alone image 

processor system, how to use the Toolbox to create the user interface, 
and interfacing the image processing functions with CLIPS. 


4.1 Using the Macintosh Toolbox tn create User Interfaces 

The Macintosh has a set of callable functions that generate the 
standard user interfaces that one generally associates with Macintosh 
applications. These functions are grouped together in what is called the 
Toolbox. The definitive description of all the Toolbox functions along 
with a complete description of the structure of the Macintosh line of 
computers is Inside Macintosh vol 1-5 [1], the set of reference manuals 
produced by Apple. These books are written at the reference level. 
Therefore if one does not already understand the basics of 
programming in the Toolbox, these are very difficult to understand. 

They do not start at the top and work down. All the functions are 
described in PASCAL. 

One level up would be references like Macintosh Revealed, 
Unlocking the Toolbox [2] and Macintosh Revealed, Programming with 
the Toolbox [3]. These references divide programming the Toolbox into 
logical topics, gives an introduction to each topic, and present the 
various callable functions. Unfortunately they do not give examples on 
how to put all of the functions together to make working programs. All 
the functions are described in PASCAL . 

A very good reference that starts at the top is Macintosh 
Programming Primer [4]. This reference explains how to program using 
the Toolbox by going through examples, written in C, that perform 
various menu functions. This is probably where someone new to the 
Macintosh should start. The person could use the lower level references 
for more detailed information about the various Toolbox functions. 



4.2 Image Processing Hardware Description 


A block diagram of the Data Translation DT2270 frame grabber 
card is shown in figure 1. As can be seen this card brings in color video 
in NTSC format, converts the signal to RGB format, digitizes the signal 
and stores the result in the hardware frame buffer. The video output 
comes directly from the hardware frame buffer, is converted to analog 
RGB signals and then converted to NTSC output. 
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Figure 1 Functional Block Diagram of DT2270 Card 


A simplified block diagram of the DT2270 is shown in figure 2. 
Figure 3 shows the architecture developed in this project to do color 
image processing using the DT2270. All the added blocks are 
performed in software on the Macintosh. Three software color frame 
buffers have been added. Two software color process maps have been 
added. The RGB/IHS conversion is done in software. 



NTSC 


Figure 2 Simplified Block Diagram of DT2270 


The extra three frame buffers allow the user to move data around, 
capture and work on more that one image at a time, decompose color 
images into their components, and reassemble them. The two process 
maps allow the user to create whatever mapping functions are needed 
and to be able to pass the pixels through the maps. This is the 
minimum system to do any color image processing. Other functions can 
easily be added to the system. 





Figure 3 Block Diagram of Color Image Process System 




This section presents a description of the color image processing 
system software in the form of a structured high level flow chart and 
the corresponding menus. The source code listings for the user menu 
interface using the Toolbox is in Appendix A. The source code listing for 
all the image processing functions described in the following section is 
in Appendix C. Example rules to invoke the image processing functions 
from CLIPS are listed in Appendix E. Figure 4 shows the top level of the 
flow chart. The software is initialized and the menu is presented and 
serviced. Figure 5 shows how the top level menu appears on the screen 
of the Macintosh. Across the top are standard drop down menus. 
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Figure 4 Top Level Flow Chart of the Color Image Processor Software 

The Picture menu is used to select image input and output. The 
Frame menu is used to set up the logical frame operations. The 
Windows menu is used to set the size of the windows or region of 
interest to be used with the logical frames. The Maps menu is used to 





place data in the color process maps. And Operations menu is used to 
select which image processing function to perform. 

i Picture Frame UJindoms Maps Operations 

Welcome to UflH color image processing enuironment ~ 


Figure 5 Start up menu selections 


Figure 6 shows the various function that are called to initialize the 
software. The functions toolBoxInit, windowlnit, menuBarlnit, and 
setUpDragRect are functions to initialize the Toolbox. The function 
imagelnit initializes the image processing hardware. The function 
frame Ini t creates the three added color frame buffers and defines their 
sizes. The function maplnit creates the two color process maps and the 
color domain conversion maps. The function imageWindowInit set up 
the initial window or regions of interest. 


C in ) 

_x 

1.1 toolBonlnit 

1 .2 unndoivlnit 

1 .3 menuBarlnit 

1.4 setUpDragRect 

1 .5 imagelnit 

1 .6 framelnit 

1 .7 maplnit 

1.8 imageWindowInit 

C out ) 

Figure 6 Block 1 -- Initialize System 

Figure 7 shows the flow chart for the drop down Picture menu. 
And figure 8 shows how the menu looks on the screen. There are five 
selections: set the hardware to display a live image, set the hardware to 




snap an image into the hardware frame buffer, store a image into a file, 
retrieve an image from a file, and quit the program. The store and 
retrieve menu selections have not been implemented yet. 
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Figure 8 Menu selections to acquire an image 


Figure 9 shows the flow chart for the Frame Set Up Menu. There 
are two classes of image processing operations: unary and binary. 
Unary operations take place between a source frame and a destination 
frame. Binary image processing operations take place between two 
source frames and a destination frame. This color image processing 
system was implemented with logical image processing frames which 
allows the user to map actual physical frames into logical frames. This 
allows the user to use any of the four physical frames as any logical 
frame. This menu allows the user to assign any of the four physical 
frames as logical source 1, source 2, and destination frames. Figure 10 
shows the dialog box used to make the logical assignments 
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Figure 9 Block 4 — Frame Set Up Menu 


The user selects one of the four radio buttons under Source SI for 
the assignment of a physical frame to the logical frame SI. Similarly 
the S2 and the Destination frames can be assigned. A physical frame 





can be assigned to more than one logical frame. The user also selects 
which color process map to use by selecting the corresponding radio 
button. The color process map allows the user to transform an image 
pixel by pixel, e.g., threshold the image, intensity scale the image, select 
portions of an image by their intensity values, etc. 
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Figure 10 Menu to set up Source 1, Source 2, Destination frames, and 

process map selection 


Figure 11 shows the flow chart to set up the process window or 
region of interest for each logical frame. The user selects the logical 
frame, i.e., SI, S2, or D, and then the dialog box shown in Figure 12 
appears. 
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Figure 11 Block 5 — Process map set up 







13 


The user sets up the window for a logical frame by entering the 
row and column values. These values are checked to insure that they 
are in range. If the user enters out of range data, it is set to the 
corresponding largest or smallest in range value. The use of windows 
allows the image processing to be done only on the portion of the image 
that is of interest. This can greatly increase the speed of doing image 
processing. 



Figure 12 Menu selections to set up the region of interest windows 


Figure 13 shows the flow chart to enter values into either of the 
color process maps. Figure 14 shows the dialog box used to enter the 
selections. 
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Figure 13 Block 5 — Window set up 


The user selects either Map 1 or Map 2 by clicking one of the 
radio buttons. Each color map has three parts or sub-maps: the red 
map, the blue map, and the green map. The user selects one of the sub- 
maps. Then the user selects an operation on the sub-map. The Linear 
operation sets the sub-map to linear, i.e., the intensity in will be the 
intensity out. The Inverse operation sets the sub-map to invert the 
intensity, i.e., the intensity out is the inverse of the intensity in — 
produces a negative image. The constant selection allows the user to set 
the sub-map to a constant value for all inputs; this is used to threshold 
images. The Step selection allows the user to set one constant value up 





to the step and another value after the step. The Individual selection 
allows the user to set any location to any value. 


The Black & White selection allows the user to set the map up to 
process only one intensity at a time. This map is used when the user 
decomposes the color pixels into its individual components and then 
works on an individual component. 
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Figure 14 Menu selections to set up the two color process maps 




Figure 15 shows the flow chart for the operations menu. Figure 
16 is the dialog box used to select an operation. 
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Figure 15 Block 7 — Operations 
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At present there are five main image processing operations. The 
user can select to move an image from one logical frame to another by 
the Move selection. The pixels in the window of SI are moved into the 
window of D. If a process map had been selected, the pixels are passed 
through the map. The SI RGB to IHS selection translate the RGB color 
coordinates of each pixel in the window of SI to IHS color coordinates 
and place the pixels in the window in D. The SI IHS to RGB selection 
does the inverse. The Add selection adds the corresponding pixels in 
the window of SI to the pixels in the window of S2, divides by 2 (to 
prevent overflow), and places the sum in the window of D. Subtract 
selection does a pixel by pixel subtraction placing the absolute value in 
the window of D, similar to the Add selection. The Color Move selection 
is a hierarchical menu which allows the user to select pixel 
decomposition operations. 
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Figure 16 Menu selections to do image processing 

Figure 17 shows the flow chart for the hierarchical menu and 
figure 18 shows the menu selections. 
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Figure 17 Block 7.7 Color Move 

There are three selections that will decompose a color pixel and 
three selections will rebuild color pixels. SI Red/I to D, SI Green/H to D, 
and SI Blue/S to D work in a similar way to decompose color pixels into 
monochrome pixels. SI Red/1 to D will move the red intensity of each 











color pixel in the window of SI to the lower portion of a pixel, set the 
upper portion to 0 and place the resultant monochrome pixel in the 
window of D. SI to D Red/I, SI to D Green/H, and SI to D Blue/S work 
in a similar way to recombine monochrome pixels into color pixels. SI 
to D Red/I will insert the monochrome pixels in the window of SI into 
the corresponding color pixels in the window of D. 



Figure 18 Menu selections to decompose and reassemble color pixels 


Appendix A Source code for user menu interface 


p ******* ********************************************** ***************/ 

I*********** Colorlmage.c **********j 

p********************************************************************/ 


/******* last modified 14 march 1990 


* * * afc * j 


/****** this is the main of the code, also includes the menu code */ 


#include "ColorStructs.h" 


/* definition of global defines 

#define NIL_POINTER 
#define MOVE_TO_FRONT 
#define APPLE_MENU_ID 
#defme COLOR.MOVE IJD 


/* definition of global parameters 

Rect gDragRect; 

MenuHandle gAppleMenu; 

Boolean gDone, gWNEImplemented; 

EventRecord gTheEvent; 

COLOR_SYSTEM colorSystem; 

l**i ******** ma j n *********/ 

main() 

{ 

/* 1.1 */ 

/* 1.2 */ 

/* 1.3 */ 

/* 1.4 */ 

/* 1.5 */ 


toolBoxInitO; 

windowInit(); 

menuBarInit(); 

setUpDragRect(); 

imagelnit(); 


*/ 


0L 

-1L 

500 

100 


frameInit(&colorSystem); 

mapInit(&colorSystem); 

imageWindowInit(&colorSystem); 


/* 1.6 */ 

/* 1.7 */ 

/* 1.8 */ 

mainLoopO; 

} 


/********* i.i ToolBoxInit *********/ 

#define REMOVE_ALL_EVENTS 0 

toolBoxInit() 

{ 

InitGraf( &thePort ); 

InitFonts(); 

FlushEvents( everyEvent, REMOVE_ALL_EVENTS ); 
InitWindows(); 

InitMenus(); 

TEInit(); 

InitDialogs( NIL_POINTER ); 

InitCursor(); 

return; 

} 


/********** 1 .2 windowlnit *********/ 

#define WINDOW_RES_ID 400 

windowInit() 

{ 

WindowPtr Window; 

Window = 

GetNewWindow(WINDOW_RES_ID,NIL_POINTER,MOVE_TO_FRONT); 

SetPort( Window); 

ShowWindow(Window); 


return; 

} 



/********** 


1.3 menuBarlnit 


* 3 ((*****/ 


#defme MENU_RES_ID 500 

#define NOT_A_NORMAL_MENU - 1 

menuBarlnitO 

{ 

MenuHandle colorMove; 

Handle MenuBar; 

MenuBar = GetNewMBar( MENU_RES_ID ); 
SetMenuBar( MenuBar ); 

/* add all of apple choices to current apple menu */ 
gAppleMenu = GetMHandle( APPLE_MENU_ID ); 
AddResMenu( gAppleMenu, 'DRVR' ); 

/* add hierarchical menu to color move selection */ 
colorMove = GetMenu( COLOR_MOVE_ID ); 

InsertMenu ( colorMove, NOT_A_NORMAL_MENU ); 

DrawMenuBar(); 

return; 

} 


/********** 1.4 setUpDragRect *********/ 

#define DR AG.THRESHOLD 1 0 0 

setUpDragRect() 

{ 

gDragRect = screenBits.bounds; 
gDragRect.left += DRAG_THRESHOLD; 
gDragRect.right -= DRAG_THRESHOLD; 
gDragRect.bottom -= DRAG_THRESHOLD; 
return; 

} 

/********** 2.0 mainLoop **********/ 

#define WNE_TRAP_NUM 0x60 

#define UNIMPL_TRAP_NUM 0x9F 



23 


mainLoopO 

{ 

gDone = FALSE; 

gWNEImplemented = ( NGetTrapAddress( WNE_TRAP_NUM, ToolTrap ) 
!= 

NGetTrapAddress( UNIMPL_TRAP_NUM, ToolTrap ) ); 

while ( gDone == FALSE ) 

{ 

handleEvent(); 

} 

/* end of program */ 

} 


/********** 2.1 handleEvent *********/ 

#define MIN_SLEEP OL 

#define NIL_MOUSE_REGION OL 

handleEvent() 

{ 

char theChar; 

if ( gWNEImplemented ) 

WaitNextEvent( everyEvent, &gTheEvent, MIN_SLEEP, 
NIL_MOUSE_REGION ); 
else 

{ 

SystemTask(); 

GetNextEvent( everyEvent, &gTheEvent ); 

} 

switch ( gTheEvent.what ) 

{ 

case nullEvent: 

/* handleNull(); */ 
break; 

case mouseDown: 

handleMouseDown(); /* 2.1.2 */ 

break; 

case keyDown: 



case autoKey: 

theChar = gTheEvent.message & charCodeMask; 
if (( gTheEvent.modifiers & cmdKey ) != 0) 

{ 

handleMenuChoice( MenuKey( theChar ) ); 

I* 2 . 1 . 2.1 */ 

} 

break; 

case updateEvt: 

BeginUpdate( gTheEvent.message ); 

EndUpdate( gTheEvent.message ); 
break; 

} 

return; 

} 


/********** 2.1.2 handleMouseDown *******/ 

handleMouseDown() 

{ 

WindowPtr whichWindow; 

short int thePart; 

long int menuChoice, windSize; 

thePart = FindWindow( gTheEvent.where, &whichWindow ); 
switch ( thePart ) 

{ 

case inMenuBar: 

menuChoice = MenuSelect( gTheEvent.where ); 
handleMenuChoice( menuChoice ); /* 2. 1.2.1 */ 

break; 

case inSysWindow: 

SystemClick( &gTheEvent, whichWindow ); 
break; 
case inDrag: 

DragWindow( whichWindow, gTheEvent.where, 

&gDragRect ); 

break; 

case inGoAway: 

DisposeWindow( whichWindow ); 
break; 
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} 

return; 

} 

/********** 2 . 1.2.1 handleMenuChoice ********/ 


#define PICTURE_MENU_ID 501 

#define FRAME_MENU_ID 502 

#define WINDOW_MENU_ID 504 

#define MAP_MENU_ID 505 

#define OPERATIONS_MENU_ID 506 


handleMenuChoice( menuChoice ) 
long int menuChoice; 

{ 

int theMenu; 
int theltem; 


if ( menuChoice != 0 ) 

{ 

theMenu = HiWord( menuChoice ); 
theltem = LoWord( menuChoice ); 
switch ( theMenu ) 

{ 

case APPLE_MENU_ID : 

handle AppleChoice(theltem); 
break; 

case PICTURE_MENU_ID : 

handlePictureChoice(theltem); 

break; 

case FRAME_MENU_ID : 

handleFrameChoice(theltem); 

break; 

case WINDOW_MENU_ID : 

handleWindowChoice(theltem); 

break; 

case MAP_MENU_ID : 

handleMapChoice(theltem); 


/* 2 . 1 . 2 . 1. 1 *1 
/* 2 . 1 . 2 . 1.2 */ 
/* 2. 1.2. 1.3 */ 

/* 2. 1.2. 1.4 */ 

/* 2. 1.2. 1.5 */ 


break; 

case OPERATIONS_MENU_ID : 

handleOperationsChoice(theltem); /* 


2 . 1 . 2 . 1.6 */ 



break; 

case COLOR_MOVE_ID : 

handleColorMoveChoice(theltem); /* 
break; 

} 

HiliteMenu( 0 ); 

} 

return; 

} 

/*********** 2.1. 2. 1.1 handleAppleChoice 

#define ABOUT_ITEM_NUM 1 

#define ABOUT_ITEM_DIALOG 700 

handle AppleChoice(theltem) 
int theltem; 

{ 

Str255 accName; 
int accNumber; 

switch(theltem) 

{ 

case ABOUT_ITEM_NUM: 

NoteAlert(ABOUT_ITEM_DIALOG,NIL_POINTER); 

break; 

default: 

GetItem(gAppleMenu, theltem, accName); 
break; 

} 

return; 

} 

/*********** 2.1. 2.1. 2 handlePictureChoice 

***********1 


#define LIVE_IMAGE_NUM 1 

#define SNAP_PICTURE_NUM 2 

#define STORE_Sl_NUM 3 

#define LOAD_Sl_NUM 4 

#define QUIT_ITEM_NUM 5 


2.1.2.1.7 */ 


% % * % * * * j 


handlePictureChoice( theltem) 
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int theltem; 

{ 

switch(theltem) 

{ 

case LIVE_IMAGE_NUM: 
imageLive(); 
break; 

case SNAP_PICTURE_NUM: 
imageSnapO; 
break; 

case STORE_S 1 _NUM : 
break; 

case L0AD_S1_NUM: 
break; 

case QUIT_ITEM_NUM : 
gDone = TRUE; 
break; 

} 

return; 

} 


/*********** 2. 1.2. 1.3 handleFrameChoice ********/ 

#define FRAME_SET_UP_NUM 1 

handleFrameChoice(theltem) 
int theltem; 

{ 

switch(theltem) 

{ 

case FRAME_SET_UP_NUM: 

handleFrameSetUpO; /* 2. 1.2. 1.3.1 */ 

break; 

} 

return; 

} 

/*********** 2.1.2. 1 .3.1 handleFrameSetUp ***********/ 

#define FRAME_DIALOG_RES_ID 600 



#defme FRAME_ON 1 

#define FRAME.OFF 0 

#define HARDWARE 0 

#define FRAME1 1 

#define FRAME2 2 

#define FRAME3 3 

#define NO_MAP 0 

#define MAPI 1 

#define MAP2 2 

#define FRAME_SAVE_BUTTON 1 

#define FRAME_CANCEL_BUTTON 2 

#defme FR AME_S l_HARD_RADIO 3 

#define FRAME_S l_Fl_RADIO 4 

#define FRAME_S l_F2_RADIO 5 

#define FRAME_S l_F3_RADIO 6 

#define FRAME_S2_HARD_RADIO 7 

#define FRAME_S2_F1 .RADIO 8 

#define FRAME_S2_F2_RADIO 9 

#define FRAME_S2_F3_RADIO 1 0 

#define FRAME_D_HARD_RADIO 1 1 

#defme FRAME_D_Fl_RADIO 1 2 

#define FRAME_D_F2_RADIO 1 3 

#define FRAME_D_F3_RADIO 1 4 

#define FRAME_NO_MAP_RADIO 1 5 

#define FRAME.MAP1 .RADIO 1 6 

#define FRAME_MAP2_RADIO 1 7 


handleFrameSetUp() 

{ 

short sourcel, source2, destination, map; 

int itemHit, dialogDone = FALSE; 

int itemType; 

Rect itemRect; 


Handle 

DialogPtr 


itemHandle; 

frameDialog; 
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frameDialog = GetNewDialog( FRAME_DIALOG_RES_ID, NIL_PO INTER, 
MOVE_TO_FRONT ); 

/* set radio buttons to proper state */ 
sourcel = colorSystem.Sourcel. Frame; 
source2 = colorSystem.Source2.Frame; 
destination = colorSystem.Destination.Frame; 
map = colorSystem.ProcessMap; 

handleSourcel (frameDialog, sourcel); /* 2.1.2.1.3.1.1 */ 

handleSource2(frameDialog, source2); /* 2.1.2.1.3.1.2 */ 

handleDestination(frameDialog, destination); /* 2. 1.2. 1.3. 1.3 */ 

handleMap(frameDialog, map); /* 2. 1.2. 1.3. 1.4 */ 

ShowWindow( frameDialog ); 

while ( dialogDone == FALSE ) 

{ 

ModalDialog( NIL_POINTER, &itemHit ); 
switch ( itemHit ) 

{ 

case FRAME_SAVE_BUTTON: 

HideWindow( frameDialog ); 
dialogDone = TRUE; 

colorSystem.Sourcel. Frame = sourcel; 
colorSystem.Source2.Frame = source2; 
colorSystem.Destination.Frame = destination; 
colorSystem.ProcessMap = map; 
break; 

case FRAME_CANCEL_BUTTON: 

HideWindow( frameDialog ); 
dialogDone = TRUE; 
break; 

case FRAME_S l_HARD_RADIO: 
sourcel = HARDWARE; 
handleSource 1 (frameDialog, source 1 ); 

/* 2 . 1 . 2 . 13 . 1.1 */ 

break; 

case FRAME_S1_F1_RADI0: 



source 1 = FRAME 1; 

handleSource 1 (frameDialog, source 1 ); 

break; 

case FRAME_S 1_F2_R ADIO: 
source 1 = FRAME2; 
handleSource 1 (frameDialog, sourcel ); 
break; * 

case FRAME_S 1 _F3_R ADIO : 
sourcel = FRAME3; 
handleSourcel (frameDialog, sourcel); 
break; 

case FRAME_S2_HARD_RADIO: 
source2 = HARDWARE; 
handleSource2(frameDialog, source2); 

/* 2. 1.2. 1.3. 1.2 */ 
break; 

case FRAME_S2_Fl_RADIO: 
source2 = FRAME 1; 
handleSource2(frameDialog, source2); 
break; 

case FRAME_S2_F2_RADIO: 
source2 = FRAME2; 
handleSource2(frameDialog, source2); 
break; 

case FRAME_S2_F3_RADIO: 
source2 = FRAME3; 
handleSource2(frameDialog, source2); 
break; 

case FRAME_D_HARD_RADIO: 
destination = HARDWARE; 
handleDestination(frameDialog, destination); 
/* 2.1.2.1.3.1.3 */ 

break; 

case FRAME_D_Fl_RADIO: 
destination = FRAME 1; 
handleDestination(frameDialog, destination); 
break; 

case FR AME_D_F2_R ADIO : 
destination = FRAME2; 
handleDestination(frameDialog, destination); 
break; 


case FRAME_D_F3_RADI0: 
destination = FRAME3; 

handleDestination(frameDialog, destination); 
break; 

case FR AME_N 0_MAP_R ADIO : 
map = NO_MAP; 
handleMap(frameDialog, map); 

/* 2. 1.2. 1.3. 1.4 */ 

break; 

case FRAME_MAPl_RADIO: 
map = MAPI; 

handleMap(frameDialog, map); 
break; 

case FRAME_MAP2_RADI0: 
map = MAP2; 

handleMap(frameDialog, map); 
break; 

} 

} 

return; 

} 

/******** 2.1.2.1.3.1.1 handleSourcel ***********/ 


handleSourcel(frameDialog, sourcel) 
DialogPtr frameDialog; 

short sourcel; 


{ 

int 

Rect 

Handle 


itemType; 

itemRect; 

itemHandle; 


/* clear all the radio buttons */ 

GetDItem( frameDialog, FRAME_Sl_HARD_RADIO, &itemType, 
&itemHandle, &itemRect ); 

SetCtlValue( itemHandle, FRAME_OFF ); 

GetDItem( frameDialog, FRAME_Sl_Fl_RADIO, &itemType, &itemHandle, 
&itemRect ); 

SetCtlValue( itemHandle, FRAME_OFF ); 
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GetDItem( frameDialog, FRAME_S1_F2_RADI0, &itemType, &itemHandle, 
&itemRect ); 

SetCtlValue( itemHandle, FRAME_OFF ); 

GetDItem( frameDialog, FRAME_Sl_F3_RADIO, &itemType, &itemHandle, 
&itemRect ); 

SetCtlValue( itemHandle, FRAME_OFF ); 

switch( source 1) 

{ 

case HARDWARE: 

GetDItem( frameDialog, FRAME_Sl_HARD_RADIO, 

&itemType, 

&itemHandle, &itemRect ); 

SetCtlValue( itemHandle, FRAME_ON ); 
break; 

case FRAME 1 : 

GetDItem( frameDialog, FRAME_S1_F1_RADI0, &itemType, 
&itemHandle, &itemRect ); 

SetCtlValue( itemHandle, FRAME_ON ); 
break; 

case FRAME2: 

GetDItem( frameDialog, FRAME_Sl_F2_RADIO, &itemType, 
&itemHandle, &itemRect ); 

SetCtlValue( itemHandle, FRAME_ON ); 
break; 

case FRAME3: 

GetDItem( frameDialog, FRAME_Sl_F3_RADIO, &itemType, 
&itemHandle, &itemRect ); 

SetCtlValue( itemHandle, FRAME_ON ); 
break; 

} 

return; 

} 

/******** 2.1. 2. 1.3. 1.2 handleSource2 ***********/ 

handleSource2(frameDialog, source2) 

DialogPtr frameDialog; 

short source2; 


{ 

int 

Rect 


itemType; 

itemRect; 



Handle 


itemHandle; 


GetDItem( frameDialog, FRAME_S2_HARD_RADIO, &itemType, 
&itemHandle, &itemRect ); 

SetCtlValue( itemHandle, FRAME.OFF ); 

GetDItem( frameDialog, FRAME_S2_Fl_RADIO, &itemType, 
&itemHandle, &itemRect ); 

SetCtlValue( itemHandle, FRAME_OFF ); 

GetDItem( frameDialog, FRAME_S2_F2_RADIO, &itemType, 
&itemHandle, &itemRect ); 

SetCtlValue( itemHandle, FRAME.OFF ); 

GetDItem( frameDialog, FRAME_S2_F3_RADIO, &itemType, 
&itemHandle, &itemRect ); 

SetCtlValue( itemHandle, FRAME_OFF ); 

switch( source2) 

{ 

case HARDWARE: 

GetDItem( frameDialog, FRAME_S2_HARD_RADIO, 

&itemType, 

&itemHandle, &itemRect ); 

SetCtlValue( itemHandle, FRAME_ON ); 
break; 

case FRAME 1: 

GetDItem( frameDialog, FRAME_S2_Fl_RADIO, &itemType, 
&itemHandle, &itemRect ); 

SetCtlValue( itemHandle, FRAME.ON ); 
break; 

case FRAME2: 

GetDItem( frameDialog, FRAME_S2_F2_RADIO, &itemType, 
&itemHandle, &itemRect ); 

SetCtlValue( itemHandle, FRAME.ON ); 
break; 

case FRAME3: 

GetDItem( frameDialog, FRAME_S2_F3_RADIO, &itemType, 
&itemHandle, &itemRect ); 

SetCtlValue( itemHandle, FRAME_ON ); 
break; 

} 

return; 

} 



j ******** 


2. 1.2. 1.3. 1.3 handleDestination 




handleDestination(frameDialog, destination) 
DialogPtr frameDialog; 

short destination; 


{ 

int 

Rect 

Handle 


itemType; 

itemRect; 

itemHandle; 


/* clear all the radio buttons */ 

GetDItem( frameDialog, FRAME_D_HARD_RADIO, &itemType, 
&itemHandle, &itemRect ); 

SetCtlValue( itemHandle, FRAME_OFF ); 

GetDItem( frameDialog, FRAME_D_Fl_RADIO, &itemType, 
&itemHandle, &itemRect ); 

SetCtlValue( itemHandle, FRAME_OFF ); 

GetDItem( frameDialog, FRAME_D_F2_RADIO, &itemType, 
&itemHandle, &itemRect ); 

SetCtlValue( itemHandle, FRAME_OFF ); 

GetDItem( frameDialog, FRAME_D_F3_RADIO, &itemType, 
&itemHandle, &itemRect ); 

SetCtlValue( itemHandle, FRAME_OFF ); 

switch( destination) 

{ 

case HARDWARE: 

GetDItem( frameDialog, FRAME_D_HARD_RADIO, 
&itemType, &itemHandle, &itemRect ); 

SetCtlValue( itemHandle, FRAME_ON ); 
break; 

case FRAME 1 : 

GetDItem( frameDialog, FRAME_D_Fl_RADIO, &itemType, 
&itemHandle, &itemRect ); 

SetCtlValue( itemHandle, FRAME_ON ); 
break; 

case FRAME2: 

GetDItem( frameDialog, FRAME_D_F2_RADIO, &itemType, 
&itemHandle, &itemRect ); 

SetCtlValue( itemHandle, FRAME_ON. ); 
break; 

case FRAME3: 


GetDItem( frameDialog, FRAME_D_F3_RADIO, &itemType, 
&itemHandle, &itemRect ); 

SetCtlValue( itemHandle, FRAME_ON ); 
break; 

} 

return; 

} 


/******** 2.1.2.1.3.1.4 handleMap 


handleMap(frameDialog, map) 
DialogPtr frameDialog; 

short map; 


{ 

int 

Rect 

Handle 


itemType; 

itemRect; 

itemHandle; 


***********/ 


/* clear all the radio buttons */ 

GetDItem( frameDialog, FRAME_NO_MAP_RADIO, &itemType, 
&itemHandle, &itemRect ); 

SetCtlValue( itemHandle, FRAME.OFF ); 

GetDItem( frameDialog, FRAME_MAPl_RADIO, &itemType, 
&itemHandle, &itemRect ); 

SetCtlValue( itemHandle, FRAME.OFF ); 

GetDItem( frameDialog, FRAME_MAP2_RADIO, &itemType, 
&itemHandle, &itemRect ); 

SetCtlValue( itemHandle, FRAME_OFF ); 

switch( map) 

{ 

case NO_MAP: 

GetDItem( frameDialog, FRAME_NO_MAP_RADIO, 
&itemType, &itemHandle, &itemRect ); 
SetCtlValue( itemHandle, FRAME_ON ); 
break; 
case MAPI: 

GetDItem( frameDialog, FRAME_MAPl_RADIO, 
&itemType, &itemHandle, &itemRect ); 
SetCtlValue( itemHandle, FRAME.ON ); 
break; 
case MAP2: 
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GetDItem( frameDialog, FRAME_MAP2_RADIO, 

&itemType, &itemHandle, &itemRect ); 

SetCtlValue( itemHandle, FRAME.ON ); 
break; 

} 

return; 

} 

/*********** 2. 1.2. 1.4 handle WindowChoice ***********/ 


#define WINDOW_DIALOG_RES_ID 601 

#define WIND0W_S1_NUM 1 

#define WINDOW_S2_NUM 2 

#define WINDOW_D_NUM 3 

#defme WINDOW_SAVE_BUTTON 1 

#define WINDOW_CANCEL_BUTTON 2 

#define WINDOW_TOP_ROW_TEXT 3 

#define WINDOW_BOTTOM_ROW_TEXT 4 

#define WINDOW_LEFT_COLUMN_TEXT 5 

#define WINDOW_RIGHT_COLUMN_TEXT 6 

#define WINDOW_TITLE_TEXT 7 


handle WindowChoice(theltem) 
int theltem; 

{ 


long 

Str255 

int 

int 

Rect 

Handle 

DialogPtr 


topRowNum, bottomRowNum, leftColumnNum, 
rightColumnNum; 

topRow, bottomRow, leftColumn, rightColumn; 

itemHit, dialogDone = FALSE; 

itemType; 

itemRect; 

itemHandle; 

windowDialog; 


windowDialog = GetNewDialog( WINDOW_DIALOG_RES_ID, NIL_PO INTER, 
MOVE_TO_FRONT ); 

GetDItem( windowDialog, WINDOW_TITLE_TEXT, &itemType, 
&itemHandle, &itemRect ); 


/* get the initial values */ 



switch(theltem) 

{ 

case WINDO W_S 1 _NU M : 

NumToString ( (long)colorSystem.Sourcel. TopRow, 
topRow); 

NumToString ( (long)colorSystem.Sourcel. BottomRow, 
bottomRow); 

NumToString ( (long)colorSystem. Source l.LeftColumn, 
leftColumn); 

NumToString ( (long)colorSystem.Sourcel.RightColumn, 
rightColumn); 

SetIText( itemHandle, "\pSet up for window SI"); 
break; 

case WINDO W_S2_NUM: 

SetIText( itemHandle, "\pSet up for window S2"); 
NumToString ( (long)colorSystem.Source2.TopRow, 
topRow); 

NumToString ( (long)colorSystem.Source2. BottomRow, 
bottomRow); 

NumToString ( (long)colorSystem.Source2.LeftColumn, 
leftColumn); 

NumToString ( (long)colorSystem.Source2.RightColumn, 
rightColumn); 
break; 

case WINDO W_D_NUM : 

SetIText( itemHandle, "\pSet up for window D"); 
NumToString ( (long)colorSystem.Destination. TopRow, 
topRow); 

NumToString ( (long)colorSystem.Destination.BottomRow, 
bottomRow); 

NumToString ( (long)colorSystem.Destination. LeftColumn, 
leftColumn); 

NumToString ( 

(long)colorSystem. Destination. RightColumn, rightColumn); 
break; 

} 

/* display current values */ 

GetDItem( windowDialog, WINDOW_TOP_ROW_TEXT, &itemType, 
&itemHandle, &itemRect ); 

SetIText( itemHandle, topRow); 

GetDItem( windowDialog, WINDOW_BOTTOM_ROW_TEXT, &itemType, 
&itemHandle, &itemRect ); 



SetIText( itemHandle, bottomRow); 

GetDItem( windowDialog, WINDOW_LEFT_COLUMN_TEXT, &itemType, 
&itemHandle, &itemRect ); 

SetIText( itemHandle, leftColumn); 

GetDItem( windowDialog, WINDOW_RIGHT_COLUMN_TEXT, &itemType, 
&itemHandle, &itemRect ); 

SetIText( itemHandle, rightColumn); 

ShowWindow( windowDialog ); 

while ( dialogDone == FALSE ) 

{ 

ModalDialog( NIL_POINTER, &itemHit ); 
switch ( itemHit ) 

{ 

case WINDOW_SAVE_BUTTON: 

HideWindow( windowDialog ); 
dialogDone = TRUE; 

/♦get the strings from the respective boxes */ 
GetDItem( windowDialog, WINDOW_TOP_ROW_TEXT, 

&itemType, 

&itemHandle, &itemRect ); 

GetIText( itemHandle, &topRow); 

GetDItem( windowDialog, 
WINDOW_BOTTOM_ROW_TEXT, &itemType, 

&itemHandle, &itemRect ); 

GetIText( itemHandle, &bottomRow); 

GetDItem( windowDialog, 
WINDOW_LEFT_COLUMN_TEXT, &itemType, 

&itemHandle, &itemRect ); 

GetIText( itemHandle, &leftColumn); 

GetDItem( windowDialog, 

WINDOW JUGHT_COLUMN_TEXT, &itemType, 

&itemHandle, &itemRect ); 

GetIText( itemHandle, &rightColumn); 

/* convert the strings to numbers */ 

StringToNum ( topRow, &topRowNum); 

StringToNum ( bottomRow, &bottomRowNum); 
StringToNum ( leftColumn, &leftColumnNum); 
StringToNum ( rightColumn, &rightColumnNum); 


/* do range checking on numbers */ 
if(topRowNum < 0) topRowNum = 0; 
if(topRowNum > MAX_ROWS -1) topRowNum = 

MAX.ROWS -1; 

if(bottomRowNum <= topRowNum) bottomRowNum 

topRowNum + 1; 

if(bottomRowNum > MAX_ROWS) bottomRowNum = 

MAX.ROWS ; 

if(leftColumnNum < 0) leftColumnNum = 0; 
if(leftColumnNum > MAX.COLUMNS -1) 
leftColumnNum = MAX.COLUMNS -1; 

if(rightColumnNum <= leftColumnNum) 
rightColumnNum = leftColumnNum + 1; 

if(rightColumnNum > MAX_COLUMNS) 
rightColumnNum = MAX_COLUMNS; 

switch(theltem) 

{ 

case WINDO W_S 1 _NUM : 

colorSystem.Sourcel.TopRow = 
topRowNum; 

colorSystem.Sourcel.BottomRow = 
bottomRowNum; 

colorSystem.Sourcel.LeftColumri = 
leftColumnNum; 

colorSystem.Sourcel .RightColumn = 
rightColumnNum; 
break; 

case WINDOW_S2_NUM: 

colorSystem.Source2.TopRow = 
topRowNum; 

colorSystem.Source2.BottomRow = 
bottomRowNum; 

colorSystem.Source2.LeftColumn = 
leftColumnNum; 

colorSystem.Source2.RightColumn = 

rightColumnNum; 

break; 

case WINDOW_D_NUM: 


colorSystem.Destination.TopRow = 
topRowNum; 

colorSystem.Destination.BottomRow = 
bottomRowNum; 

colorSystem.Destination.LeftColumn = 
leftColumnNum; 

colorSystem.Destination.RightColumn = 

rightColumnNum; 

break; 

} 

break; 

case WINDOW_CANCEL_BUTTON: 

HideWindow( windowDialog ); 

dialogDone = TRUE; 

break; 

} 

} 

return; 

} 

/*********** 2.1. 2.1. 5 handleMapChoice ***********/ 

#define MAP_DIALOG_RES_ID 602 

#define MAP.OFF 0 

#define MAP.ON 1 

#define MAP_COLOR_MAX_VALUE 3 1 

#define M AP_B and W_M AX_ V ALUE 25 5 

#define MAP_SAVE_BUTTON 1 

#define MAP_CANCEL_BUTTON 2 

#define MAP_CONSTANT_V ALUE_TEXT 1 4 

#define MAP_STEP_VALUE_FIRST_TEXT 1 5 

#define MAP_STEP_STEP_TEXT 1 6 

#define MAP_STEP_VALUE_LAST_TEXT 1 7 

#define MAP_INDIVIDUAL_VALUE_TEXT 1 8 

#define MAP_INDIVIDUAL_ADDRESS_TEXT 1 9 


handleMapChoice(theltem) 
int theltem; 


{ 


Str255 

short 

long 

int 

int 

Rect 

Handle 

DialogPtr 


value IStr, value2Str, addressStr; 

radioMap =0, radioColor =0, radioOperation =0, 

maxValue; 

value 1 =0, value2 =0, address =0; 

itemHit, dialogDone = FALSE; 

itemType; 

itemRect; 

itemHandle; 

windowDialog; 


windowDialog = GetNewDialog( MAP_DIALOG_RES_ID, NIL_POINTER, 
MOVE_TO_FRONT ); 


/* get the initial values */ 

ShowWindow( windowDialog ); 

while ( dialogDone == FALSE ) 

{ 

ModalDialog( NIL_POINTER, &itemHit ); 
switch ( itemHit ) 

{ 

case MAP_S A VE_BUTTON : 

HideWindow( windowDialog ); 
dialogDone = TRUE; 

if (radioMap == 0 I radioColor == 0 I radioOperation 
== 0) break; 

/*get the strings from the respective boxes */ 

switch (radioOperation) 

{ 

case MAP_CONSTANT_RADIO: 

GetDItem( windowDialog, 

MAP_CON STANT_VALUE_TEXT, 
&itemType,&itemHandle, &itemRect ); 

GetIText( itemHandle, &valuelStr); 
StringToNum ( valuelStr, &valuel); 
break; 


case MAP STEP RADIO: 
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GetDItem( windowDialog, 
MAP_STEP_VALUE_FIRST_TEXT, 
&itemType,&itemHandle, &itemRect ); 

GetIText( itemHandle, &valuelStr); 

GetDItem( windowDialog, 
MAP_STEP_STEP_TEXT, &itemType, 

&itemHandle, &itemRect ); 

GetIText( itemHandle, &addressStr); 

GetDItem( windowDialog, 
MAP_STEP_VALUE_LAST_TEXT, 

&itemType, &itemHandle, &itemRect ); 

GetIText( itemHandle, &value2Str); 

/* convert the strings to numbers */ 
StringToNum ( valuelStr, &valuel); 

StringToNum ( value2Str, &value2); 

StringToNum ( addressStr, &address); 
break; 

case MAP_INDI VIDU AL_R ADIO : 

GetDItem( windowDialog, 
MAP_INDIVIDUAL_VALUE_TEXT, 

&itemType, &itemHandle, &itemRect ); 

GetIText( itemHandle, &valuelStr); 

GetDItem( windowDialog, 
MAP_INDIVIDUAL_ADDRESS_TEXT, 

&itemType, &itemHandle, &itemRect ); 

GetIText( itemHandle, &addressStr); 

StringToNum ( valuelStr, &valuel); 

StringToNum ( addressStr, &address); 
break; 

} 

/* check for correct bounds */ 

if(valuel < 0) value 1 = 0; 

if(valuel > maxValue) valuel = maxValue; 

if(value2 < 0) value2 = 0; 

if(value2 > maxValue) value2 = maxValue; 

if(address < 0) address = 0; 

if(address > maxValue) address = maxValue; 

/* call the functions to operate on the selected map */ 
doMapOperation(&colorSystem, radioMap, 
radioColor, radioOperation, 



(short)valuel, (short)address, (short)value2); 

break; 

case MAP_CANCEL_BUTTON: 

HideWindow( windowDialog ); 

dialogDone = TRUE; 

break; 

case MAP_MAPl_RADIO: 

radioMap = MAP_MAPl_RADIO; 
handleMapSelection(windowDialog, radioMap); 

break; 

case MAP_MAP2_RADIO: 

radioMap = MAP_MAP2_RADIO; 
handleMapSelection(windowDialog, radioMap); 

break; 

case MAP_RED_RADIO: 

max Value = MAP_COLOR_MAX_VALUE; 
radioColor = MAP_RED_RADIO; 
handleColorSelection( windowDialog, radioColor); 

break; 

case MAP_BLUE_RADIO: 

max Value = MAP_COLOR_MAX_VALUE; 
radioColor = MAP_BLUE_RADIO; 
handleColorSelection( windowDialog, radioColor); 

break; 

case MAP_GREEN_RADIO: 

max Value = MAP_COLOR_MAX_VALUE; 
radioColor = MAP_GREEN_RADIO; 
handleColorSelection( windowDialog, radioColor); 

break; 

case MAP_BLACK_WHITE_RADIO: 

max Value = MAP_BandW_MAX_ VALUE; 
radioColor = M AP_BL ACK_WHITE_R ADIO ; 
handleColorSelection( windowDialog, radioColor) ; 


break; 



case MAP_LINEAR_RADIO: 

radioOperation = MAP_LINEAR_RADIO; 

handleOperationSelection(windowDialog, 

radioOperation); 

break; 

case MAP_INVERSE_RADIO: 

radioOperation = MAP_INVERSE_RADIO; 

handleOperationSelection(windowDialog, 

radioOperation); 

break; 

case M AP_CON ST ANT_R ADIO : 

radioOperation = MAP_CONSTANT_RADIO; 

handleOperationSelection(windowDialog, 

radioOperation); 

break; 

case MAP_STEP_RADIO: 

radioOperation = MAP_STEP_RADIO; 

handleOperationSelection(windowDialog, 

radioOperation); 

break; 

case MAP_INDIVIDUAL_RADIO: 

radioOperation = MAP_INDIVIDUAL_RADIO; 

handleOperationSelection(windowDialog, 

radioOperation); 

break; 

} 

} 


return; 

} 

/*********** 2.1.2. 1 .5.1 handleMapSelection ***********/ 

handleMapSelection(windowDialog, selection) 

DialogPtr windowDialog; 

short selection; 


{ 

int 

Rect 

Handle 


itemType; 

itemRect; 

itemHandle; 


*/ 


/* clear all the radio buttons 


GetDItem( windowDialog, MAP_MAPl_RADIO, &itemType, &itemHandle, 
&itemRect ); 

SetCtlValue( itemHandle, MAP_OFF ); 

GetDItem( windowDialog, MAP_MAP2_RADIO, &itemType, &itemHandle, 
&itemRect ); 

SetCtlValue( itemHandle, MAP_OFF ); 

GetDItem( windowDialog, selection, &itemType, &itemHandle, &itemRect 

); 

SetCtlValue( itemHandle, MAP_ON ); 
return; 

} 

/*********** 2. 1.2. 1.5 .2 handleColorSelection ***********/ 


handleColorSelection(windowDialog, selection) 
DialogPtr windowDialog; 

short selection; 


{ 

int 

Rect 

Handle 


itemType; 

itemRect; 

itemHandle; 


/* clear all the radio buttons */ 

GetDItem( windowDialog, MAP_RED_RADIO, &itemType, &itemHandle, 
&itemRect ); 

SetCtlValue( itemHandle, MAP_OFF ); 

GetDItem( windowDialog, MAP_BLUE_RADIO, &itemType, &itemHandle, 
&itemRect ); 

SetCtlValue( itemHandle, MAP_OFF ); 

GetDItem( windowDialog, MAP_GREEN_RADIO, &itemType, &itemHandle, 
&itemRect ); 

SetCtlValue( itemHandle, MAP_OFF ); 

GetDItem( windowDialog, MAP_BLACK_WHITE_RADIO, &itemType, 
&itemHandle, &itemRect ); 

SetCtlValue( itemHandle, MAP_OFF ); 

GetDItem( windowDialog, selection, &itemType, &itemHandle, &itemRect 

); 

SetCtlValue( itemHandle, MAP_ON ); 
return; 

} 
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/*********** 2.1. 2.1. 5.3 handleOperationSelection ******/ 


handleOperationSelection(windowDialog, selection) 
DialogPtr windowDialog; 

short selection; 


{ 

int 

Rect 

Handle 


itemType; 

itemRect; 

itemHandle; 


/* clear all the radio buttons */ 

GetDItem( windowDialog, MAP_LINEAR_RADIO, &itemType, 
&itemHandle, &itemRect ); 

SetCtlValue( itemHandle, MAP_OFF ); 

GetDItem( windowDialog, MAP_INVERSE_RADIO, &itemType, 
&itemHandle, &itemRect ); 

SetCtlValue( itemHandle, MAP_OFF ); 

GetDItem( windowDialog, MAP_CONSTANT_RADIO, &itemType, 
&itemHandle, &itemRect ); 

SetCtlValue( itemHandle, MAP_OFF ); 

GetDItem( windowDialog, MAP_STEP_RADIO, &itemType, &itemHandle, 
&itemRect ); 

SetCtlValue( itemHandle, MAP_OFF ); 

GetDItem( windowDialog, MAP_INDIVIDUAL_RADIO, &itemType, 
&itemHandle, &itemRect ); 

SetCtlValue( itemHandle, MAP_OFF ); 

GetDItem( windowDialog, selection, &itemType, &itemHandle, &itemRect 

); 

SetCtlValue( itemHandle, MAP_ON ); 
return; 

} 


/*********** 2.1. 2. 1.6 handleOperationsChoice ******/ 


#define MOVE.NUM 1 

#define RGBtoYIQ.NUM 2 

#define YIQtoRGB.NUM 3 

#define ADD_NUM 4 

#defme SUBTRACT.NUM 5 


handleOperationsChoice(theltem) 
int theltem; 

{ 

switch(theltem) 

{ 

case MOVE_NUM: 

doMove(&colorSystem); 

break; 

case RGBtoYIQJSTUM: 

doRGBtoYIQ(&colorSystem); 

break; 

case YIQtoRGB_NUM: 

doYIQtoRGB(&colorSystem); 

break; 

case ADD_NUM: 

doAdd(&colorSystem); 

break; 

case SUBTRACT.NUM: 

doSubtract(&colorSystem); 

break; 

} 

return; 

} 

/*********** 2. 1.2. 1.7 handleColorMoveChoice 


#define Sl_RYtoD_NUM 1 

#define Sl_GItoD_NUM 2 

#define Sl_BQtoD_NUM 3 

#define SltoD_RY_NUM 4 

#define SltoD_GI_NUM 5 

#define SltoD_BQ_NUM 6 


handleColorMoveChoice(theltem) 
int theltem; 

{ 

switch(theltem) 

{ 

case S 1_RY toD_NUM: 

doS 1 _R Y toD(&colorSy stem); 
break; 

case Sl_GItoD_NUM: 

doS l_GItoD(&colorSystem); 


* * * * * * 3k * * * 
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break; 

case Sl_BQtoD_NUM: 

doS l_BQtoD(&colorSystem); 
break; 

case S 1 toD_R Y_NUM: 

doS 1 toD_R Y(&colorSystem); 

break; 

case SltoD_GI_NUM: 

doS 1 toD_GI(&colorSy stem); 
break; 

case SltoD_BQ_NUM: 

doS 1 toD_BQ(&colorSystem); 
break; 

} 

return; 

} 

/****************** end of file **********/ 
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/******a | <*******************************************************/ 

/*** ********* HardwareFunctions.c **/ 

y***************************************^*******************/ 


/******* last modified 8 march 1990 by jm **♦**/ 

/***** these are the functions to initialize the frame grabber, snap an 
image and */ 

/* set the image to live **/ 


#define CONTROL_REG 0xb00600 

#define PAN.REG 0xb00604 

#define CHAN.REG 0xb00608 

/*> ************* imageLive **************/ 

void imageLive() 

{ 

int *cp; 

cp = (int *)CONTROL_REG; 

*cp = 0x314; 
return; 

} 

/************** imageSnap ************/ 

void imageSnapO 

{ 

int *cp; 

cp = (int *)CONTROL_REG; 

*cp = 0x0114; 
return; 

} 

/************** j 5 imagelnit ************/ 

void imagelnit() 


{ 
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int *cp; 

cp = (int *)CONTROL_REG; 
*cp = 0x80e0; 

cp = (int *)PAN_REG; 

*cp = 0x0000; 

cp = (int *)CHAN_REG; 

*cp = 0xff04; 

imageLive(); 

return; 

} 


^^************************************$*************** 3 **********/ 


Appendix C Source code for image processing functions 


/************ ImageProcessing.c ********/ 

J********************************************************************** j 


/******* last modified 29 march 1990 by jm *****/ 

#include <stdio.h> 

#include <storage.h> 

#include "ColorStructs.h” 

#include <math.h> 


f** ************* ]5 framelnit *********** */ 

#defme min(x,y) (((x) < (y)) ? (x):(y)) 

#define Min(x, y, z) (min( (min(x,y)),(z))) 

#define HARDWARE.FRAME 0 
#defme BASE_ADDRESS OxbOOOOO 

framelnit(colorSystem) 

COLOR_SYSTEM *colorSystem; 

{ 

short loop; 

loop = HARDWARE.FRAME; 

colorSystem->Frame[loop].NumRows = MAX_ROWS; 
colorSystem->Frame[loop].NumColumns = MAX_COLUMNS; 
colorSy stem->Frame[loop] .Rowlncrement = 
HARDWARE_ROW_INCREMENT; 

colorSystem->Frame [loop]. Pointer = (short *)BASE_ADDRESS; 

for (loop = HARDWAREJFRAME + 1; loop < NUMBER_OF_FR AMES ; loop++) 

{ 

colorSystem->Frame[loop].NumRows = MAX_ROWS; 
colorSystem->Frame[loop].NumColumns = MAX_COLUMNS; 
colorSy stem->Frame [loop]. Rowlncrement = MAX_COLUMNS; 
colorSystem->Frame[loop] .Pointer = 


(short *)mlalloc ( (unsigned long) sizeof(short) * MAX_ROWS 
* MAX.COLUMNS); 

if (colorSystem->Frame[loop]. Pointer == NULL) 

printf("\ninsufficient memory for allocation of software 
frame %d", loop); 

} 

return; 

} 

/************* 17 maplnit ************/ 

#define NO_MAP 0 

mapInit(colorSystem) 

COLOR_S Y STEM *colorSystem; 

{ 

short loop; 

colorSystem->ProcessMap = NO_MAP; 

for (loop = 0; loop < NUMBER_OF_MAPS ; loop++) 

{ 

colorSystem->Map[loop] = 

(short *)mlalloc ( (unsigned long) sizeof(short) * 32 * 32 * 

32); 

if (colorSystem->Map[loop] == NULL) 

printf("\ninsufficient memory for allocation of map %d", 

loop); 

} 

colorSystem->RGBtoYIQ = colorSystem->Map[NUMBER_OF_MAPS - 2]; 
colorSystem->YIQtoRGB = colorSystem->Map[NUMBER_OF_MAPS - 1]; 

map3Init(colorSystem->RGBtoYIQ); 

map4Init(colorSystem->YIQtoRGB); 

return; 

} 


ca|ea|ca|ca|eafea|e3«e34ea|c 

map3Init(Map_PNT) 
short *Map_PNT; 


1.7.1 map3Init 


*********** *^ 



5 3 


{ 

short Redbit, Greenbit, Bluebit; 

short R, G, B, H, S, I, rgb_value; 

double K, F, Sqrt3, Constant, DegPerRadian; 

Sqrt3 = sqrt( 3.0); 

Constant = 31.0/360.0; 

DegPerRadian = 180.0/3.14159; 

for(R = 0; R < 32; R++) 

{ 

Redbit = R «10; 

for(G=0; G<32; G++) 

{ 

Greenbit = G«5; 


for(B=0; B < 32; B++) 

{ 

Bluebit = B; 

rgb_value = RedbitIGreenbitIBluebit; 

K = (R + G + B+ 0.0001)/3.0; 

1= K; 

S = (1.0 - Min(R,G,B)/K) * 31.0; 

if( G == B ) H = 0; 

else 

{ 

F = (2.0*R - G - B)/(G - B); 
if( F < 0.0) 

H = (270.0 - atan2(F, Sqrt3)*DegPerRadian) 

* Constant; 

else 

H = (90.0 - atan2(F, Sqrt3)*DegPerRadian) 

* Constant; 

Map_PNT[rgb_value] = (I«10) I (H«5) I S; 


} 

} 

return; 

} 


/************* 


1.7.2 map4Init 


************/ 


map4Init(Map_PNT) 
short *Map_PNT; 

{ 

short Redbit, Greenbit, Bluebit, Hbit, Sbit, Ibit; 

short R, G, B,H, S, I, hsi_value; 

double K, P, Constant; 

Constant = 360.0/31.0; 

for(H = 0; H < 32; H++) 

{ 

Hbit = H « 5; 
for(I = 0; I < 32; I++) 

{ 

Ibit = I < 10; 

for( S = 0; S < 32; S++) 

{ 

Sbit = S; 

hsi_value = Hbit I Sbit I Ibit; 

P = H * Constant; 
if( P > 240.0) 

{ 

K = cos(P - 240.0)/cos(120.0 - P); 

G = I - I * S/31.0; 

B = I + I * S * K/31.0; 

R = I*(1.0 + S *(1.0 - K)/31.0); 

} 

else 

if(P > 120.0 ) 

{ 

K = cos(P - 120)/cos(-60.0 - P); 
R = I - I * S/31.0; 

G = I + I * S * K/31.0; 

B = I*(1.0 + S * (1.0 - K)/31.0); 

} 

{ 

K = cos(P)/cos(60.0 - P); 

B = I - I * S/31.0; 

R = I + I * S *K /31.0; 


else 
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G = I*(1.0 + S * (1.0 - K)/31.0); 

} 

if ( R < 0) R = 0; else if(R > 31) R = 31; 

if ( G < 0) G = 0; else if(G > 31) G = 31; 

if ( B < 0) B = 0; else if(B > 31) B = 31; 

Map_PNT[hsi_value] = (R«10) I (G«5) I B; 

} 

} 

} 

return; 


/************** 2 g image Windowlnit *************/ 

#define HARDWARE 0 

image WindowInit(colorSy stem) 

COLOR_SYSTEM *colorSystem; 

{ 

colorSystem->Sourcel. Frame = HARDWARE; 
colorSystem->Sourcel.TopRow = 0; 
colorSystem->Sourcel.BottomRow = MAX_ROWS; 
colorSystem->Sourcel.LeftColumn = 0; 
colorSystem->Sourcel.RightColumn = MAX_COLUMNS; 

colorSystem->Source2.Frame = HARDWARE; 
colorSystem->Source2.TopRow = 0; 
colorSystem->Source2.BottomRow = MAX_ROWS; 
colorSystem->Source2.LeftColumn = 0; 
colorSystem->Source2.RightColumn = MAX_COLUMNS; 

colorSystem->Destination.Frame = HARDWARE; 
colorSystem->Destination.TopRow = 0; 
colorSystem->Destination.BottomRow = MAX_ROWS; 
colorSystem->Destination.LeftColumn = 0; 
colorSystem->Destination.RightColumn = MAX_COLUMNS; 
return; 

} 


******************** ****^ 


/***" <************* global variables 



#define RED.MASK 
#define GREEN.MASK 
#define BLUE.MASK 
#define COM_RED_MASK 
#define COM_GREEN_MASK 
#define COM_BLUE_MASK 
#define BW.MASK 
#define COM_BW_MASK 


Ox7cOO 

0x03e0 

OxOOlf 

!RED_MASK 

!GREEN_MASK 

!BLUE_MASK 

OxOOff 

!BW_MASK 


short *S1 .Pointer, *S2_Pointer, *D_Pointer, 

Sl_row_increment, S2_row_increment, D_row_increment; 
int rownum.columnnum; 


/* ***************** GetSIDPtr 


* * a|e afe * * a|c * * * * * * * * * * * * * * * * * j 


GetS 1 DPtr(colorSy stem) 

COLOR_SYSTEM *colorSystem; 

{ 

int sl_rownum, sl_columnnum, d_rownum, d_columnnum; 
long sloffset, doffset; 

Sl_Pointer = colorSystem->Frame[colorSystem->Sourcel .Frame]. Pointer; 
D_Pointer = colorSystem->Frame[colorSystem- 
>Destination. Frame]. Pointer; 

sloffset = colorSystem->Sourcel.TopRow; 
doffset = colorSystem->Destination.TopRow; 

Sl_row_increment = colorSystem->Frame[colorSystem- 
>Sourcel. Frame]. Rowlncrement; 

D_row_increment = colorSystem->Frame[colorSystem- 
>Destination. Frame]. Rowlncrement; 

SI .Pointer += sloffset * Sl_row_increment 
+ colorSystem->Sourcel .LeftColumn; 

D.Pointer += doffset * D_row_increment 

+ colorSystem->Destination.LeftColumn; 

sl.columnnum = MAX.COLUMNS - colorSystem->Sourcel. LeftColumn; 
d.columnnum = colorSystem->Destination.RightColumn 
- colorSystem->Destination.LeftColumn; 



sl_rownum = MAX_ROWS - colorSystem->Sourcel.TopRow; 
d_rownum = colorSystem->Destination.BottomRow 
- colorSystem->Destination.TopRow; 

rownum = min(sl_rownum, d_rownum); 
columnnum = min(sl_columnnum, d_columnnum); 


return; 

} 


/***************** GetSlS2DPtr 


* * * * * a|c * % * % % * * % * * * % * * * a|c 4c % j 


GetS 1 S2DPtr(colorSystem) 

COLOR_SYSTEM *colorSystem; 

{ 

int sl_rownum, sl_columnnum, 

s2_rownum, s2_columnnum, 
d_rownum, d_columnnum; 
long si offset, s2offset, doffset; 

S l_Pointer = colorSystem->Frame[colorSystem->Sourcel .Frame] .Pointer; 
S2_Pointer = colorSystem->Frame[colorSystem->Source2.Frame] .Pointer; 
D_Pointer = colorSystem->Frame[colorSystem- 
>Destination.Frame]. Pointer; 


Sl_row_increment = 

colorSystem->Frame[colorSystem->Sourcel. Frame]. Rowlncrement; 
S2_row_increment = 

colorSystem->Frame[colorSystem->Source2.Frame]. Rowlncrement; 
D_row_increment = 

colorSystem->Frame[colorSystem->Source2.Frame]. Rowlncrement; 

si offset = colorSystem->Sourcel.TopRow; 
s2offset = colorSystem->Source2.TopRow; 
doffset = colorSystem->Destination.TopRow; 

Sl_Pointer += si offset * Sl_row_increment 
+ colorSy stem->Source 1 .LeftColumn; 

S2_Pointer += s2offset * S2_row_increment 
+ colorSystem->Source2.LeftColumn; 

D_Pointer += doffset * D_row_increment 

+ colorSystem->Destination.LeftColumn; 



sl_columnnum = MAX_COLUMNS - colorSystem->Sourcel.LeftColumn; 
s2_columnnum = MAX_COLUMNS - colorSystem->Source2.LeftColumn; 
d_columnnum = colorSystem->Destination.RightColumn 

- colorSystem->Destination.LeftColumn; 

sl_rownum = MAX_ROWS - colorSystem->Sourcel.TopRow; 
s2_rownum = MAX_ROWS - colorSystem->Source2.TopRow; 
d_rownum = colorSystem->Destination.BottomRow 

- colorSystem->Destination.TopRow; 

rownum = Min( sl_rownum, s2_rownum, d_rownum); 
columnnum = Min( sl_columnnum, s2_columnnum, d_columnnum); 

return; 

} 

/************** 2. 1.2. 1.6.1 doRGBtoYIQ *************/ 

doRGBtoYIQ(colorSystem) 

COLOR_SYSTEM *colorSystem; 

{ 

short *S1PNT, *DPNT, *Map_PNT; 
int i, j; 

GetS 1 DPtr(colorSystem); 

Map_PNT = colorSystem->RGBtoYIQ ; 

for (i=0; i< rownum; i++) 

{ 

S1PNT = Sl_Pointer; 

DPNT = D_Pointer; 

for (j=0; j< columnnum; j++) 

{ 

♦DPNT++ = *( Map.PNT + (*S1PNT++ & 0x7fff)); 

} 

Sl_Pointer += Sl_row_increment; 

D_Pointer += D_row_increment; 

} 

return; 

} 


/************** 


2.1.2.1.6.2 doYIQtoRGB 


************* j 



doYIQtoRGB(colorSystem) 

COLOR_SYSTEM *colorSystem; 

{ 

short *S1PNT, *DPNT, *Map_PNT; 
int i, j; 

GetSlDPtr(colorSystem); 

Map_PNT = colorSystem->YIQtoRGB ; 
for (i=0; i< rownum; i++) 

{ 

S1PNT = Sl.Pointer; 

DPNT = D_Pointer; 

for (j=0; j< columnnum; j++) 

{ 

*DPNT++ = *( Map_PNT + (*S1PNT++ & 0x7fff)); 

} 

Sl_Pointer += Sl_row_increment; 

D_Pointer += D_row_increment; 

} 

return; 

} 

/************** 2. 1.2.1. 6.3 doAdd ************* j 

doAdd(colorSystem) 

COLOR_SYSTEM *colorSystem; 

{ 

short *S1PNT, *S2PNT, *DPNT, *Map_PNT; 
short data; 

int i, j; 

GetS 1 S2DPtr(colorSystem); 

if( colorSystem->ProcessMap == NO_MAP) 

{ 

for (i=0; i< rownum; i++) 

{ 

S1PNT = Sl_Pointer; 

S2PNT = S2_Pointer; 

DPNT = D_Pointer; 

for (j=0; j< columnnum; j++) 


{ 

*DPNT++ = ((((*S 1 PNT)&RED_MASK) + 

((* S2PNT)&RED_MASK))» 1 & RED.MASK) 
l((((*S 1PNT)&GREEN_MASK) + 
((*S2PNT)&GREEN_MASK))» 1 & GREEN_MASK) 
I((*S1PNT + *S2PNT)»1 & BLUE_MASK); 
S1PNT++; 

S2PNT++; 

} 

Sl_Pointer += Sl_row_increment; 

S2_Pointer += S2_row_increment; 

D_Pointer += D_row_increment; 


Map_PNT = colorSystem->Map[colorSystem->ProcessMap - 


for (i=0; i< rownum; i++) 

{ 

S1PNT = SI .Pointer; 

S2PNT = S2_Pointer; 

DPNT = D.Pointer; 

for (j=0; j< columnnum; j++) 

' { 

data = ((((*S1PNT)&RED_MASK) + 

((*S2PNT)&RED_MASK))»1 & RED.MASK) 
I((((*S1PNT)&GREEN_MASK) + 
((*S2PNT)&GREEN_MASK))»1 & GREEN.MASK) 
I((*S1PNT + *S2PNT)»1 & BLUE.MASK); 


♦DPNT++ = *(Map_PNT + data); 
S1PNT++; 

S2PNT++; 

} 


SI .Pointer += Sl.row.increment; 
S2_Pointer += S2_row_increment; 
D.Pointer += D.row.increment; 

} 



2. 1.2. 1.6.4 doSubtract *************/ 


1 * 1 C** ********** 


doSubtract(colorSystem) 

COLOR_SYSTEM *colorSystem; 

{ 

short *S1PNT, *S2PNT, *DPNT, *Map_PNT; 
short data; 

int ij; 

GetS 1 S2DPtr(colorSystem); 

if( colorSystem->ProcessMap == NO_MAP) 

{ 

for (i=0; i< rownum; i++) 

{ 

S1PNT = Sl_Pointer; 

S2PNT = S2_Pointer; 

DPNT = D_Pointer; 

for (j=0; j< columnnum; j++) 

{ 

* DPNT++ = (abs(((*SlPNT)&RED_MASK) - 
((*S2PNT)&RED_MASK))&RED_MASK) 
l(abs(((*S 1 PNT)&GREEN_MASK) - 
((*S2PNT)&GREEN_MASK))&GREEN_MASK) 
l(abs(*SlPNT - * S2PNT)&BLUE_M AS K) ; 
S1PNT-H-; 

S2PNT++; 

} 

Sl_Pointer += Sl_row_increment; 

S2_Pointer += S2_row_increment; 

D_Pointer += D_row_increment; 

} 

} 

else 

{ 

Map_PNT = colorSystem->Map[colorSystem->ProcessMap - 1]; 
for (i=0; i< rownum; i++) 

{ 

S1PNT = Sl.Pointer; 

S2PNT = S2_Pointer; 

DPNT = D_Pointer; 


for (j=0; j< columnnum; j++) 

{ 

data = (abs(((*SlPNT)&RED_MASK) - 

((*S2PNT)&RED_MASK))&RED_MASK) 
l(abs(((*SlPNT)&GREEN_MASK) - 
((*S2PNT)&GREEN_MASK))&GREEN_MASK) 
l(abs(*SlPNT - *S2PNT)&BLUE_MASK); 


♦DPNT++ = *(Map_PNT + data); 
S1PNT++; 

S2PNT++; 

} 


Sl_Pointer += Sl_row_increment; 

S2_Pointer += S2_row_increment; 

D_Pointer += D_row_increment; 

} 

} 

return; 

} 

/************** 2.1.2.1.6.5 doMove *************/ 


doMove(colorSystem) 

COLOR_SYSTEM *colorSystem; 

{ 

short *S1PNT, *DPNT, *Map_PNT; 

int i, j; 

GetS lDPtr(colorSystem); 

if( colorSystem->ProcessMap == NO_MAP) 

{ 

for (i=0; i< rownum; i++) 

{ 

S1PNT = Sl.Pointer; 

DPNT = D_Pointer; 

for (j=0; j< columnnum; j++) 

{ 

♦DPNT-h- = *S1PNT++; 

} 

Sl_Pointer += Sl_row_increment; 
D_Pointer += D_row_increment; 
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} 

} 

else 

{ 

Map_PNT = colorSystem->Map[colorSystem->ProcessMap - 1] ; 
for (i=0; i< rownum; i++) 

{ 

S1PNT = SI .Pointer; 

DPNT = D.Pointer; 

for (j=0; j< columnnum; j++) 

{ 

♦DPNT++ = *( Map.PNT + *S1PNT++); 

} 

Sl.Pointer += Sl.row.increment; 

D.Pointer += D.row.increment; 

} 

} 

return; 

} 

/************** 2.1. 2.1. 7.1 doSl RYtoD *************1 

doS 1 _R Y toD(colorSy stem) 

COLOR.SYSTEM *colorSystem; 

{ 

short *S1PNT, *DPNT; 

int i, j; 

GetS 1 DPtr(colorSystem); 
for (i=0; i< rownum; i++) 

{ 

S1PNT = Sl.Pointer; 

DPNT = D.Pointer; 

for (j=0; j< columnnum; j++) 

{ 

♦DPNT++ = ( *DPNT & COM_BLUE_MASK)l(( *S1PNT & 
RED.MASK) »10); 

S1PNT++; 

} 

Sl.Pointer += Sl.row.increment; 

D.Pointer += D.row.increment; 

} 

return; 
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} 

/************** 2.1.2. 1.7.2 doSl GItoD *************/ 

doSl_GItoD(colorSystem) 

COLOR_SYSTEM *colorSystem; 

{ 

short *S1PNT, *DPNT; 

int i, j; 

GetS 1 DPtr(colorSy stem); 
for (i=0; i< rownum; i++) 

{ 

S1PNT = SI .Pointer; 

DPNT = D.Pointer; 

for (j=0; j< columnnum; j++) 

{ 

♦DPNT++ = ( *DPNT&COM_BLUE_MASK)l(( 

*S 1 PNT&GREEN.MASK) » 5); 

S1PNT++; 

} 

SI .Pointer += Sl.row.increment; 

D.Pointer += D.row.increment; 

} 

return; 

} 

/************** 2. 1.2. 1.7.3 doSl.BQtoD *************/ 

doSl.BQtoD(colorSystem) 

COLOR.SYSTEM *colorSystem; 

{ 

short *S1PNT, *DPNT; 

int i,j; 

GetS 1 DPtr(colorSy stem); 
for (i=0; i< rownum; i++) 

{ 

S1PNT = SI .Pointer; 

DPNT = D.Pointer; 

for (j=0; j< columnnum; j++) 

{ ' 



♦DPNT++ = ( *DPNT&COM_BLUE_MASK)l((*S 1 PNT) & 
BLUE.MASK); 

S1PNT++; 

} 

Sl_Pointer += Sl_row_increment; 

D_Pointer += D_row_increment; 

} 

return; 

} 

/****+ <********* 2.1.2. 1.7.4 doSltoD RY *************/ 

doS 1 toD_R Y (colorSy stem) 

COLOR_SYSTEM *colorSystem; 

{ 

short *S1PNT, *DPNT; 

int i,j; 

GetS 1 DPtr(colorSy stem); 
for (i=0; i< rownum; i++) 

{ 

S1PNT = Sl_Pointer; 

DPNT = D_Pointer; 

for (j=0; j< columnnum; j++) 

{ 

*DPNT++ = (*DPNT&COM_RED_MASK) 
l((*S 1PNT&BLUE_MASK)<<10); 

S1PNT-H-; 

} 

Sl_Pointer += Sl_row_increment; 

D_Pointer += D_row_increment; 

} 

return; 

} 

/************** 2. 1.2. 1.7.5 doSltoD GI ************* j 

doS 1 toD_GI(colorSy stem) 

COLOR_SYSTEM *colorSystem; 

{ 

short *S1PNT, *DPNT; 

int i,j; 


GetS 1 DPtr(colorSystem); 
for (i=0; i< rownum; i++) 

{ 

S1PNT = SI .Pointer; 

DPNT = D.Pointer; 

for (j=0; j< columnnum; j++) 

{ 

♦DPNT++ = (*DPNT & COM.GREEN.MASK) 
l(( *S1PNT & 0x00 If) « 5); 

S1PNT++; 

} 

SI .Pointer += Sl.row.increment; 

D.Pointer += D.row.increment; 

} 

return; 

} 

/************** 2.1. 2. 1.7.6 doSltoD BQ *************/ 


doS 1 toD_BQ(colorSy stem) 

COLOR.SYSTEM *colorSystem; 

{ 

short *S1PNT, *DPNT; 

int i, j; 

GetS 1 DPtr(colorSystem); 
for (i=0; i< rownum; i++) 

{ 

S1PNT = SI .Pointer; 

DPNT = D.Pointer; 

for (j=0; j< columnnum; j++) 

{ ‘ 

♦DPNT++ =(*DPNT&COM_BLUE_MASK) 
I((*S1PNT) & BLUE.MASK); 
S1PNT++; 

} 

SI .Pointer += Sl.row.increment; 

D.Pointer += D.row.increment; 

} 

return; 

} 


/************** 


2.1.2.1.5.1 doMapOperation *************/ 
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doMapOperation( colorSystem, radioMap, radioColor, radioOperation, 

value 1, address, value2) 

COLOR_SYSTEM *colorSystem; 

short radioMap, radioColor, radioOperation, value 1, 

address, value2; 

{ 

short *MAP_PNT; 

MAP_PNT = colorSystem->Map[ radioMap - MAP_MAPl_RADIO]; 
switch(radioOperation) 

{ 

case MAP_LINEAR_RADIO: 

linearFun( MAP_PNT, radioColor); 
break; 

case M AP_INVERSE_R ADIO : 

inverseFun( MAP_PNT, radioColor); 
break; 

case MAP_CONSTANT_RADIO: 

constantFun(MAP_PNT, radioColor, valuel); 
break; 

case MAP_STEP_RADIO: 

stepFun(MAP_PNT, radioColor, valuel, address, value2); 
break; 

case MAP_INDIVIDUAL_RADIO: 

individualFun(MAP_PNT, radioColor, address, valuel); 
break; 

} 

return; 

} 

/************** 2. 1.2. 1.5. 1.1 linearFun *************/ 

linearFun( MAP_PNT, radioColor) 
short *MAP_PNT, radioColor; 

{ 

short i, j, k, Redbit, Greenbit, Bluebit, Value; 

if(radioColor == MAP_BLACK_WHITE_RADIO) 

for(i = 0; i<256; i++) MAP_PNT[i] = i; 

else 

{ 


for(i = 0; i< 32; i++) 

{ 

Redbit = i«10; 
for(j=0; j<32; j++) 

{ 

Greenbit = j«5; 
for(k=0; k<32; k++) 

{ 

Bluebit = k; 

Value = Redbitl GreenbitlBluebit; 
switch(radioColor) 

{ 

case MAP_RED_RADIO: 

M AP_PNT[ V alue] = 

(MAP_PNT[Value]&COM_RED_MASK) I Redbit; 

break; 

case M AP_GREEN_R ADIO : 

M AP_PNT[ V alue] = 

(MAP_PNT[Value]&COM_GREEN_MASK) I Greenbit; 

break; 

case MAP JBLUE_R ADIO : 
MAP_PNT[ Value] = 

(M AP_PNT[ Value] &COM_BLUE_M ASK) I Bluebit; 

break; 

} 

} 

} 

} 

} 

return; 

} 

/************** 2.1.2. 1.5. 1.2 inverseFun *************/ 

inverseFun( MAP_PNT, radioColor) 
short *MAP_PNT, radioColor; 

{ 

short i, j, k, Redbit, Greenbit, Bluebit, Value; 

if(radioColor == MAP_BLACK_WHITE_RADIO) 
for(i = 0; i<256; i++) MAP_PNT[i] = 255-i; 


else 


{ 

for(i = 0; i< 32; i++) 

{ 

Redbit = (i«10) & RED.MASK; 
for(j=0; j<32; j++) 

{ 

Greenbit = (j«5) & GREEN.MASK; 
for(k=0; k<32; k++) 

{ 

Bluebit = k&BLUE_MASK; 

Value = Redbitl Greenbitl Bluebit; 
switch(radioColor) 

{ 

case MAP_RED_RADIO: 

MAP_PNT[ Value] = 

(MAP_PNT[ Value] &COM_RED_M ASK) I ((31-i)«10)&RED_MASK; 

break; 

case MAP_GREEN_RADIO: 

MAP_PNT[ Value] = 

(MAP_PNT[ Value] &COM_GREEN_MASK) 

I ((3 1 -j)«5)&GREEN_MASK; 

break; 

case MAP_B LUE_RADIO : 

MAP_PNT[ Value] = 

(MAP_PNT[Value]&COM_BLUE_MASK) 

I (3 1 -k)&BLUE_MASK; 

break; 

} 


return; 

} 

/************** 2 12 15 13 constantFun *************/ 

constantFun(MAP_PNT, radioColor, valuel) 
short *MAP_PNT, radioColor, valuel; 

{ 

short i, j, k, Redbit, Greenbit, Bluebit, rgb_Value; 


70 


if(radioColor == MAP_BLACK_WHITE_RADIO) 
for(i = 0; i<256; i++) MAP_PNT[i] = valuel; 

else 

{ 

for(i = 0; i< 32; i++) 

{ 

Redbit = (i«10) & RED_MASK; 
for(j=0; j<32; j++) 

{ 

Greenbit = (j«5) & GREEN_MASK; 
for(k=0; k<32; k++) 

{ 

Bluebit = k&BLUE_MASK; 

rgb_Value = Redbitl GreenbitI Bluebit; 

switch(radioColor) 

{ 

case MAP_RED_RADIO: 

M AP_PNT[rgb_V alue] = 
(MAP_PNT[rgb_Value]&COM_RED_MASK) 
l(((value 1 )« 1 0)&RED_M ASK); 

break; 

case MAP_GREEN_RADIO: 

M AP_PNT[rgb_ V alue] = 
(MAP_PNT[rgb_Value]&COM_GREEN_MASK) 
l((( valuel )«5)&GREEN_MASK); 

break; 

case MAP_BLUE_RADIO: 

M AP_PNT[rgb_V alue] = 
(MAP_PNT[rgb_Value]&COM_BLUE_MASK) 

((value 1 )&BLUE_MASK); 


return; 


/************** 2.1.2.1.5.1.4 stepFun *************/ 


stepFun(MAP_PNT, radioColor, valuel, step_value, value2) 
short *MAP_PNT, radioColor, valuel, step_value, value2; 


{ 


short i, j, k, Redbit, Greenbit, Bluebit, rgb_Value; 

if(radioColor == MAP_BLACK_WHITE_RADIO) 
for(i = 0; i<256; i++) 

if( i < step_value) MAP_PNT[i] = valuel; 
else MAP_PNT[i] = value2; 

else 

{ 

for(i = 0; i< 32; i++) 

{ 

Redbit = (i«10) & RED.MASK; 
for(j=0; j<32; j++) 

{ 

Greenbit = (j«5) & GREEN_MASK; 
for(k=0; k<32; k++) 

{ 

Bluebit = k&BLUE_MASK; 

rgb_Value = Redbitl Greenbitl Bluebit; 

switch(radioColor) 

{ 

case MAP_RED_RADIO: 
if(i< step_value) 

M AP_PNT[rgb_ V alue] 
(MAP_PNT[rgb_V alue] &COM_RED_MASK) 
l(((value 1 )« 1 0)&RED_M ASK); 

else 

MAP_PNT[rgb_Value] 

(MAP_PNT[rgb_Value]&COM_RED_MASK) 

l(((value2)«10)&RED_MASK); 

break; 

case MAP_GREEN_RADIO: 
if(j<step_value) 

M AP_PNT[rgb_ V alue] 

(MAP_PNT[rgb_Value]&COM_GREEN_MASK) 
l(((valuel )«5)&GREEN_MASK); 

else 

M AP_PNT[rgb_V alue] 

(MAP_PNT[rgb_Value]&COM_GREEN_MASK) 

l(((value2)«5)&GREEN_MASK); 

break; 



case MAP_BLUE_RADIO: 
if(k<step_value) 

MAP_PNT[rgb_V alue] = 
(MAP_PNT[rgb_Value]&COM_BLUE_MASK) 
l((valuel )&BLUE_MASK); 

else 


MAP_PNT[rgb_Value] = 
(MAP_PNT[rgb_Value]&COM_BLUE_MASK) 
l((value2)&BLUE_MASK); 

break; 


} 


} 


return; 

} 


/********* ****** 2.1.2.1.5.1.5 individualFun *************/ 


individualFun(MAP_PNT, radioColor, address, valuel) 
short *MAP_PNT, radioColor, address, valuel; 

{ 

short i, j, k, Redbit, Greenbit, Bluebit, Value; 

switch(radioColor) 

{ 

case MAP_RED_RADIO: 

Redbit = address « 10; 
for(j=0; j<32; j++) 

{ 

Greenbit = j « 5; 
for(k=0; k<32; k++) 

{ 

Bluebit = k; 

Value = RedbitIGreenbitIBluebit; 
M AP_PNT[ V alue] = 
(MAP_PNT[Value]&COM_RED_MASK) 

l((value 1 « 10)&RED_MASK); 

} 

} 

break; 
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case MAP_GREEN_RADIO: 

Greenbit = address « 5; 
for(i=0; i<32; i++) 

{ 

Redbit = i«10; 
for(k=0; k<32; k++) 

{ 

Bluebit = k; 

Value = RedbitlGreenbitl Bluebit; 
MAP_PNT[ Value] = 

(MAP_PNT[Value]&COM_GREEN_MASK) 

l((valuel«5)&GREEN_MASK); 

} 

} 

break; 

case MAP_BLUE_R ADIO : 

Bluebit = address; 
for(i=0; i <32; i++) 

{ 

Redbit = i«10; 
for(j=0; j<32; j++) 

{ 

Greenbit = j«5; 

Value = RedbitlGreenbitl Bluebit; 

M AP_PNT[ V alue] = 

(MAP_PNT[Value]&COM_BLUE_MASK) 

l( value 1 &BLUE_MASK); 

} 

} 

break; 

default: 

*(MAP_PNT + address) =valuel; 
break; 

} 

return; 

} 


/*********** 


end of file 


* * ** * % * * * afc * $ * * afc * j 


Appendix D 


Include file 


I ************************************************************** ****y 

/******** ColorStructs.h ******/ 

^*******************************************************1 |c*******3|y 


/********** last mcxlified 14 march 1990 by jm */ 

/* this is the include file for all the image processing structs */ 


#define MAX_ROWS 480 

#define MAX.COLUMNS 640 

#define HARD WARE_RO W_IN CREMENT 1024 

#define NUMBER_OF_FRAMES 4 

#define NUMBER_OF_MAPS 4 


/* defines for the map operations, needed also in the function that does 
it */ 


/*********** 2. 1.2. 1.5 handleMapChoice 

#define MAP_MAP1 .RADIO 

#define MAP_MAP2_RADIO 

#define MAP_RED_RADIO 

#define MAP_BLUE_RADIO 

#defme MAP_GREEN_RADIO 

#define MAP_BLACK_WHITE_RADIO 

#define MAP_LINEAR_RADIO 

#define MAP_INVERSE_RADIO 

#define MAP_CONSTANT_RADIO 

#define MAP_STEP_RADIO 

#define MAP_INDIVIDUAL_RADIO 


3 

4 

5 

6 

7 

8 

9 

10 
1 1 
12 
13 


***********/ 


typedef struct Window 

{ 

short Frame, 

TopRow, 
BottomRow, 



} WINDOW; 


LeftColumn, 

RightColumn; 


typedef struct Frame 

{ 

short NumRows, 

NumColumns, 
Rowlncrement; 
short *Pointer; 

} FRAME; 


typedef struct ColorSystem 

{ 

FRAME Frame[NUMBER_OF_FRAMES] ; 

WINDOW Source 1, 

Source2, 

Destination; 

short *Map[NUMBER_OF_MAPS], 

♦RGBtoYIQ, 

♦YIQtoRGB; 

short ProcessMap; 

} COLOR_SYSTEM ; 


1 * 4 ********** 


end of file 


*********** 



Appendix E Examples of CLIPS Rules for image processing 


.I..********************************************************************** 

1>M 

;;;;TfflS IS A EXAMPLE FOR USING IMAGEPROCESS FUNCTION IN CLIPS 

....*******:M'**********:Mc******:Mc*******:M‘******************************** 


(defrule livepic 
?start <- ( start fact) 

( show live picture) 

=> 

(retract ?start) 

(livefun) 

(assert (live picture)) 
(assert (snap picture))) 


(defrule store_pic 
?fl<-(live picture) 

?f2<-(snap picture) 

=> 

(retract ?fl ?f2) 

(snapfun) 

(assert (saved picture)) 

(fprintout t " live picture was snaped " crlf)) 


(defrule set_up_window 
?fl <- (window set up) 

=> 

(retract ?fl) 

(fprintout t " the name of the window is (type SI , S2 or D):" crlf) 
(bind ?name (readline)) 

(assert (set up window ?name)) 

(fprintout t " the number of the toprow is (0 - 479):" crlf) 

(bind ?toprow(readline)) 

(fprintout t " the number of the bottomrow is (1 - 480):" crlf) 
(bind ?bottomrow(readline)) 

(fprintout t " the number of the leftcolumn is (0 - 639):" crlf) 
(bind ?leftcolumn(readline)) 

(fprintout t " the number of the rightcolumn is (1 - 640):" crlf) 
(bind ?rightcolumn(readline)) 


(assert (window ?name size ?toprow ?bottomrow ?leftcolumn 
?rightcolumn )) 

(set_up_window_fun ?name ?toprow ?bottomrow ?leftcolumn 
?rightcolumn) 

(fprintout t "Do you want to set up another window ? (yes/no)" crlf) 
(bind ?anwser(readline)) 

(assert (another window anwser ?anwser))) 


(defrule test_another_window 

?fl <- (another window anwser ?anwser) 

=> 

(retract ?fl) 
if( (eq ?anwser "yes") 
then 

(assert (window set up)))) 


(defrule fram_set_up 
(set up fram) 

=> 

(fprintout t "select the window(sl, s2,or D):" crlf) 

(bind ?window(readline)) 

(fprintout t "select the window(Hardware, FI, F2 or F3): crlf) 
(bind ?Fram_number(readline)) 

(assert ( ?window from ?Fram_numbe )) 

(fram_set_up ?window ?Fram_numbe) 

(fprintout t "another to set up?" crlf) 

(bind ?reply(readline)) 

(if (eq ?reply "yes") 
then 

(assert (set up fram)))) 


(defrule do_move 

?fl <- (move picture) 


(retract ?fl) 
(doMove_fun)) 


(defrule do_sl_RGBtoD_YIQ 
?fl <- ( transfer RGB to YIQ) 

=> 

(retract ?fl) 
(do_RGBtoYIQ_fun)) 


(defrule do_sl_YIQtoD_RGB 
?fl <- (transfer YIQ to RGB) 

=t> 

(retract ?fl) 
(do_YIQtoRGB_fun)) 


(derule display_pic 

?f2 <- (display si picture) 

=> 

(fram_set_up_fun D Hardware) 
(doMove_fun)) 
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